   1 :RETURN 
   2 .C0MPUTER CR0CHET
  10 CLEAR 
  20 K=RND (4)×2
  22 FC=RND (255);BC=RND (32)×8+4+FC
  30 C=3
  40 Q=RND (7);IF Q<3C=Q
  50 S=RND (6)×2+2
  60 FOR R=0TO RND (15)×2+10STEP S
  65 FOR Z=-RTO RSTEP S
  70 BOX Z,R,K,K,C
  80 BOX R,Z,K,K,C
  90 BOX -R,Z,K,K,C
 100 BOX -Z,-R,K,K,C
 110 NEXT Z
 120 NEXT R
 125 FOR T=1TO 999;NEXT T
 130 GOTO 20
>RUN 
